How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/aindex.dir/00747_Script_aIndexManager

Text File | 1995-09-06 | 6KB | 142 lines

--òò╩aIndexManager
property pTopicMenu , pLatchedAlpha
on birth me
  return me
end

on testIndexRollover me
  --set the trace = true
  set thisAlpha =  the mouseCast
  if (thisAlpha > 0 and thisAlpha < 27) then
    set thisAlphaIndex = getAt(pTopicMenu,thisAlpha)
    setTopicMenu(thisAlphaIndex)
    clearRefLinkIcon(thisAlphaIndex)
  else
    if (objectP(pLatchedAlpha) ) then
      --òò because the art department could not generate the
      --òò the highlight art for the topic menu we need to
      --disable the highlight fucnctionality (commented out below)
      --if (rollover(2)) then
      -- secondaryHilight (sub-menu)
      -- set vOffset = the mouseV
      --  setTopicHiLight(pLatchedAlpha , vOffset)
      -- else
      -- revert to latched topic menu
      setTopicMenu(pLatchedAlpha)
      -- end if
    end if
  end if
end

on clickAlpha me
  set thisAlpha = the mouseCast
  if  (thisAlpha >= 1 and thisAlpha <= 26) then
    set pLatchedAlpha = getAt(pTopicMenu,thisAlpha)
    clearRefLinkIcon(pLatchedAlpha)
  end if
end

on clickTopic me
  set vOffset = the mouseV
  selectTopicFromMenu(pLatchedAlpha,vOffset)
end

on clickRefLink me , horzPos,vertPos
  set vOffset = vertPos --the mouseV
  clickRefLink(pLatchedAlpha,vOffset ,horzPos,vertPos)
end

on resetIndex me
  reset(pLatchedAlpha )
end

on initIndex me
  set pTopicMenu = []
  set indexCount = 1
  set topicMenuClass = the number of cast "aTopicMenu"
  --on birth me , startCast , stopCast , theSprite , theDefaultCast┬
            , functionCast ,iconCast  ,numLeftEntries, newRightEntries
  --put "--òò A Topic Menu"
  set thisMenu = (birth (script topicMenuClass, 353 , 353 , 2 , 352 , 41 , 1002,  1, 0))
  append pTopicMenu, thisMenu
  set pLatchedAlpha = thisMenu
  --put "--òò B Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 354 , 354 , 2 , 352 , 41 ,1013,  2, 0))
  append pTopicMenu, thisMenu
  --put "--òò C Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 355 , 355 , 2 , 352 , 41 ,1024,  9, 8))
  append pTopicMenu, thisMenu
  --put "--òò D Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 356 , 356 , 2 , 352 , 41 ,1046,  2, 0))
  append pTopicMenu, thisMenu
  --put "--òò E Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 357 , 357 , 2 , 352 , 41 ,1057,  3, 0))
  append pTopicMenu, thisMenu
  --put "--òò F Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 358 , 358 , 2 , 352 , 41 ,1068,  8, 8))
  append pTopicMenu, thisMenu
  --put "--òò G Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 359 , 359 , 2 , 352 , 41 ,1079,  4, 0))
  append pTopicMenu, thisMenu
  --put "--òò H Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 360 , 360 , 2 , 352 , 41 ,1090,  4, 0))
  append pTopicMenu, thisMenu
  --put "--òò I Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,331,  0, 0))
  append pTopicMenu, thisMenu
  --put "--òò J Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 361 , 361 , 2 , 352 , 41 ,1101,  2, 0))
  append pTopicMenu, thisMenu
  --put "--òò K Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,353,  0, 0))
  append pTopicMenu, thisMenu
  --put "--òò L Topic Menu"
  set thisMenu = (birth (script topicMenuClass, 362 , 362 , 2 , 352 , 41 ,1112,  3, 0))
  append pTopicMenu, thisMenu
  --put "--òò M Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 363 , 363 , 2 , 352 , 41 ,1123,  14, 0))
  append pTopicMenu, thisMenu
  --put "--òò N Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 364 , 364 , 2 , 352 , 41 ,1145,  2, 0))
  append pTopicMenu, thisMenu
  --put "--òò O Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 365 , 365 , 2 , 352 , 41 ,1156,  1, 0))
  append pTopicMenu, thisMenu
  --put "--òò P Topic Menu"
  set thisMenu = (birth (script topicMenuClass, 366 , 366 , 2 , 352 , 41 ,1167,  9, 0))
  append pTopicMenu, thisMenu
  --put "--òò Q Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 367 , 367 , 2 , 352 , 41 ,1178,  2, 0))
  append pTopicMenu, thisMenu
  --put "--òò R Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 368 , 368 , 2 , 352 , 41 ,1189,  3, 0))
  append pTopicMenu, thisMenu
  --put "--òò S Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 369 , 369 , 2 , 352 , 41 ,1200,  13, 9))
  append pTopicMenu, thisMenu
  --put "--òò T Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 370 , 370 , 2 , 352 , 41 ,1222,  14, 0))
  append pTopicMenu, thisMenu
  --put "--òò U Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,45,  0,0))
  append pTopicMenu, thisMenu
  --put "--òò V Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 371 , 371 , 2 , 352 , 41 ,1244,  2, 0))
  append pTopicMenu, thisMenu
  --put "--òò W Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 372 , 372 , 2 , 352 , 41 ,1255,  6, 0))
  append pTopicMenu, thisMenu
  --put "--òò X Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,45,  0,0))
  append pTopicMenu, thisMenu
  --put "--òò Y Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,479,  0, 0))
  append pTopicMenu, thisMenu
  --put "--òò Z Topic Menu"
  set thisMenu =  (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,45,  0,0 ))
  append pTopicMenu, thisMenu
  set the trace = FALSE
end